home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / poursuit.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  2.2 KB  |  48 lines
  1. 10 CLS:PRINT "       POURSUITE INFERNALE              (c) W-TEL JANV 90";:FOR I=1TO200:NEXT I:GOSUB 450
  2. 20 P$=CHR$(140):M$=CHR$(241)
  3. 30 CLS:PRINT P$;":c'est vous !";CHR$(13);M$;":c'est le monstre !"
  4. 40 PRINT "Vous devez l'eviter grace aux   touches 8,6,2,4.":PRINT "8:haut,2:bas,6:droite,4:gauche  7,9,1,3:diagonales"
  5. 50 PRINT "La partie est chronometree.     Le compteur s'affiche en bas.":PRINT "Tous les 50 le monstre saute.   Tous les 100 vous sautez !"
  6. 60 PRINT "MANGER LE * ET VOUS GAGNER 100"
  7. 70 PRINT "Bonne Chance....                Essayez quand meme la touche 5"
  8. 80 REM
  9. 90 REM (c)W-TEL 24/24 62.93.74.05
  10. 100 CLS:PRINT "READY ?                         PRESS [EXE]":GOSUB 460
  11. 110 CLS
  12. 120 X=INT(RAN#*30):Y=0:MX=RAN#*30:MY=1:T=0:LX=INT(RAN#*30):LY=INT(RAN#*2)
  13. 130 LOCATE X,Y:PRINT P$;:LOCATE MX,MY:PRINT M$;:LOCATE LX,LY:PRINT "*";
  14. 140 A$=INKEY$:T=T+1
  15. 150 IF T/100=INT(T/100) THEN A$="5"
  16. 160 IF T/50=INT(T/50) THEN 220
  17. 170 XX=0:YY=0:XM=0:YM=0
  18. 180 IF X-MX<>0 THEN XM=(X-MX)/ABS(X-MX)/0.9:MX=MX+XM
  19. 190 IF Y-MY<>0 THEN YM=(Y-MY)/ABS(Y-MY)/5:MY=MY+YM
  20. 200 IF MX<0 OR MX>30 THEN MX=MX-XM:XM=0
  21. 210 IF MY<0 OR MY>1 THEN MY=MY-YM:YM=0
  22. 220 IF A$="8" THEN YY=-1:XX=0
  23. 230 IF A$="3" THEN XX=1:YY=1
  24. 240 IF A$="2" THEN YY=+1:XX=0
  25. 250 IF A$="1" THEN XX=-1:YY=1
  26. 260 IF A$="6" THEN XX=+1:YY=0
  27. 270 IF A$="7" THEN XX=-1:YY=-1
  28. 280 IF A$="4" THEN XX=-1:YY=0
  29. 290 IF A$="9" THEN XX=1:YY=-1
  30. 300 IF A$="5" THEN XX=INT(RAN#*30)-X:YY=INT(RAN#*2)-Y
  31. 310 X=X+XX:IF X<0 OR X>30 THEN X=X-XX:XX=0
  32. 320 Y=Y+YY:IF Y<0 OR Y>1 THEN Y=Y-YY:YY=0
  33. 330 IF T/50=INT(T/50) THEN XM=RAN#*30-MX:YM=INT(RAN#*2)-MY:MX=MX+XM:MY=MY+YM
  34. 340 LOCATE 15,1:PRINT T;
  35. 350 LOCATE X-XX,Y-YY:PRINT " ";
  36. 360 LOCATE MX-XM,MY-YM:PRINT " ";
  37. 370 LOCATE LX,LY:PRINT "*";
  38. 380 LOCATE MX,MY:PRINT M$;
  39. 390 LOCATE X,Y:PRINT P$;
  40. 400 IF X=LX AND Y=LY THEN T=T+100:BEEP1:LX=INT(RAN#*30):LY=INT(RAN#*2)
  41. 410 IF X<>INT(MX) OR Y<>INT(MY) THEN 140
  42. 420 IF X=INT(MX) AND Y=INT(MY) THEN BEEP0:BEEP1:BEEP0:CLS:PRINT "PERDU !!!":GOTO 430
  43. 430 PRINT "T=";T:IF T>MT THEN MT=T
  44. 440 PRINT "MT=";MT:GOSUB 460:CLS:GOTO 100
  45. 450 FOR X=0 TO 30:FOR Y=0 TO 1:LOCATE X,Y:PRINT CHR$(135);:NEXT Y:NEXT X
  46. 460 FOR X=0 TO 30:FOR Y=0 TO 1:LOCATE X,Y:PRINT " ";:NEXT Y:NEXT X
  47. 470 RETURN
  48.